home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Graphics Programming (2nd Edition) / Visual Basic Graphics Programming 2nd Edition.iso / Src / Ch13 / Circle.cls < prev    next >
Text File  |  1999-06-20  |  682b  |  29 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "DistortCircle"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = False
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Option Explicit
  15.  
  16. Implements Distortion
  17.  
  18. Public period As Single
  19. Public amplitude As Single
  20. ' Transform the point.
  21. Private Sub Distortion_Transform(X As Single, Y As Single, Z As Single)
  22. Dim D As Single
  23.  
  24.     D = Sqr(X * X + Z * Z)
  25.     Y = Y + amplitude * Sin(D * 6.28 / period)
  26. End Sub
  27.  
  28.  
  29.